home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / getkey16.zip / COLORS1.BAT next >
DOS Batch File  |  1993-08-20  |  2KB  |  43 lines
  1. @echo off
  2. rem colors1.bat
  3. REM This test file is an example of how you may use GETKEY to change
  4. rem display color
  5.  
  6. getkey "default colors " /c:abcdq /n /m"~B black,yellow,white"/m"~Q End"/m"~D blue,white,yellow"/m"~A blue,gray,white" 
  7. if errorlevel 4 if not errorlevel 5 goto end
  8. if errorlevel 3 if not errorlevel 4 goto DBWY
  9. if errorlevel 2 if not errorlevel 3 goto BBYW
  10. if errorlevel 1 if not errorlevel 2 goto ABLW
  11.  
  12. :ABLW
  13. getkey "A - 1,7,15 " /d1,, -c:abcdq /n /m"~B black,yellow,white" /m"~C default" /m"~Q End" /m"~D blue,white,yellow"
  14. if errorlevel 4 if not errorlevel 5 goto end
  15. if errorlevel 3 if not errorlevel 4 goto DBWY
  16. if errorlevel 2 if not errorlevel 3 goto CDEF
  17. if errorlevel 1 if not errorlevel 2 goto BBYW
  18.  
  19.  
  20. :BBYW
  21. getkey "B - 1,14,15 " /d,14, -c:abcdq /n /m"~A blue,gray,white" /m"~C default" /m"~Q End" /m"~D blue,white,yellow"
  22. if errorlevel 4 if not errorlevel 5 goto end
  23. if errorlevel 3 if not errorlevel 4 goto DBWY
  24. if errorlevel 2 if not errorlevel 3 goto CDEF
  25. if errorlevel 1 if not errorlevel 2 goto ABLW
  26.  
  27. :CDEF
  28. getkey "C - 1,7,15 " /d,, -c:abcdq /n /m"~A blue,gray,white" /m"~B black,yellow,white" /m"~Q End" /m"~D blue,white,yellow"
  29. if errorlevel 4 if not errorlevel 5 goto end
  30. if errorlevel 3 if not errorlevel 4 goto DBWY
  31. if errorlevel 2 if not errorlevel 3 goto BBYW
  32. if errorlevel 1 if not errorlevel 2 goto ABLW
  33.  
  34. :DBWY
  35. getkey "D - 1,15,14 " /d1,15,14 -c:abcdq /n /m"~A blue,gray,white" /m"~B black,yellow,white" /m"~C default" /m"~Q End"
  36. if errorlevel 4 if not errorlevel 5 goto end
  37. if errorlevel 3 if not errorlevel 4 goto CDEF
  38. if errorlevel 2 if not errorlevel 3 goto BBYW
  39. if errorlevel 1 if not errorlevel 2 goto ABLW
  40.  
  41. :End
  42. cls
  43.